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SHOW verb dispatch routine bese -1984 01:24:4 AX-11 Bliss-32 V4.0-742 Page 
12-Sep-19 4 93:35 °4 EXCHNG. SRC TEXCSHOW.B3251 ° (1) 


: 1 600) MODULE exch$show ZTITLE "SHOW verb dispatch routine’ 
: : 0008 IDENT = 'V04-000' 

; ¢ Boe ete tra (EXTERNAL=LONG_RELATIVE, NONE XTERNAL=WORD_RELATIVE) 
5 = 

; % $07 1 GeOlN 

: 8 443 } isnnuenenaenenateenereneateneenenetrrerierertenertrntnennttnnereneteneerenes 
; :* * 
5 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 11 011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: \ gig : vs ALL RIGHTS RESERVED. : 
> 14 014 1 i* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 4 +t : te TRANSFERRED. * 
° :* * 
; 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 22 Bo6¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $i Base : ‘* CORPORATION. * 
Py -* # 
3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 si 0027 1 !«# * 
; 8 0028 1 !* * 
: 4 +594 } Vee R RRA REAR AR AAA 
co By 0031 1 !44 

3 38 003 : } FACILITY: EXCHANGE = Foreign volume interchange facility 

5 33 Boge : ABSTRACT: SHOW - show internal data structures 

: 36 0036 i ENVIRONMENT: VAX/VMS User mode 

: 38 0038 1 | AUTHOR: CW Hobhs CREATION DATE: 22-Aug-1982 

; sy 0039 1! 

3 40 0040 1 ! MODIFIED BY: 

: 41 0041 1! 

3 42 BReg 1! 

: 43 004 1 !-- 

: 44 044 1 

: 45 045 1! Include files: 

3 46 0046 1! 

; (47 0047 1 MACRO Smodule_name_ string = ‘exch$show’ %; ! The require file needs to know our module name 
; re gee ' REQUIRE ‘SRCSZEXCREQ' ! Facility-wide require file 


D 11 
EXCHSSHOW SHOW verb dispatch routine 16-Sep-1984 0) sgh 268 VAX-11 Bliss-32 V4.0-742 Page 2 
v04-000 Module table of contents 14-Sep-1984 12:29:08 CEXCHNG.SRCJEXCSHOW.B32;1 (2) 


: 1 } ZSBTTL ‘Module table of contents’ 
3 : 138 1 ! Module table of contents: 
: 4 149 1! 

: 5 150 1 Fo °WARD ROUTINE 

; § 151 #1 exch$show_show 

3 5 1 § 1 : 

3 es 1 1 

3 9 154 1 ! EXCHANGE facility routines 
; & 155 1! 

s; 6 C6} 1 § 1 'EXTERNAL ROUTINE 

3 66 1 1! $ 

; § 156 1 

>; 664 159 1 ! Equated symbols: 

: & 0160 1! 

; 66 0161 1 !LITERAL 

3; 6 CUO” b10¢ 1! 3 

; @& B12 1 

3 69 164 1 ! Bound declarations: 

; 0165 1! 

RET 0166 1 BIND 

EF 0167 1 null-string = ZASCID '' 
> . 0168 #1 3 


EXCHSSHOW 
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SHOW verb dispatch routine 1h-se 1984 01:24:4 AX-11 Bliss-32 V4.0-74 
v0e~ ; 93:53:68 | Ye - 


exch$show_show 14-Sep-1984 XCHNG. SRC JEXCSHOW.B32;1 


none 
' ROUTINE VALUE: 
success 
SIDE EFFECTS: 
da information is displayed on sys$output 


$dbgtrc_prefix ("show show> '); 
LOCA 


75 169 1 GLOBAL ROUTINE exch$show_show = %SBTTL ‘exch$show_show' 
7 0 BEGIN 
7 71 '+ 
78 i ! 
6 o FUNCTIONAL DESCRIPTION: 
2! Ne This routine shows the mounted volumes. 
8 8 ' INPUTS: 
84 78 ! 
be & none 
1 ! IMPLICIT INPUTS: 
88 86 ! 
89 7 exch$a_gbl = pointer to all global data 
85 ' OUTPUTS: 
86 ! 
87 ! none 
88 ! 
89 IMPLICIT OUTPUTS: 
i 
i 
i 
! 
i 
1 
i 


L 
volb : $ref_bblock 


: Show VOLBs, volume control blocks, for mounted volumes 
volb = -exch$a_gbl Cexcg$a_volb_use_ flink]; ' Get pointer to first volume 


$Sexch_signal_return (exch$_novolumes); 


POPIPIPOPIPOPIPINININNNINY 2 9 et tt 


NSUSENSSETERF OR SSRIS SP RSS 


: Print the header Lines 


$print_desc (null string) ; 
$print_lit ("Mounted volumes:'); 


ee ee ww fn wpa lola lo lolaloleolololololololololeoleololololeolololololololo} 


WUNB Se SsarannSSBLRRANSSSELESLELLS 


em ee ce a ee ee ee ed ed ad od 


Rorornorg 


IF .volb EQL exch$a_gbl Cexcg$a_volB_use_flink] ! If pointer is same as header address, no mounted volumes 


p 3 
age ; 


a SS 
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V04= exch$show_ show 14 ae 12:59:08 LEXCHNG. SRC EXCSHOW.B32;1 - (4) 


H Print each mounted volume 
WHILE -volb NEQ exch$a_gbl Cexcg$a_volb_use_flink] 
BEGIN 
BIND 
nam = volb C[volb$a_nam] : $Sref_bblock; 
LOCAL 
ptri, ptr2; 


Sblock check (2, .volb, volb, 477); 
$print_desc (nullistring); 


Sprint_fao (" !AF", .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident]); 
Sprint_fao ('!8* volume format:!10* !AF', .volb Cvolb$l_vol_type_lenJ, volb [volb$t_vol_type]); 
if -volb Cvolb$l_devclass] EQL dc$_disk 


ptri = ZASCID ‘disk’ 
ose IF .volb Cvolb$l_devclass] EQL dc$_tape 


ne ptri = ZASCID ‘magtape' 
ptri = ZASCID ‘unknown’; 
— Cvolb$v_virtual] 
ptr2 = ZASCID * (virtual volume)' 


ELSE 
ptr2 = null_string; 
Sprint_fao ('!8* volume class:!11* !AS!AS', .ptri, .ptr2); 


if gvolb Cvolb$v_virtual) 
Sprint_fao (°!8* virtual file name:!6* !AF*, .nam Cnam$b_rsl], .nam Cnam$l_rsa]) 


ee ee) 


SPEER EEE FAWN ANNI PNNPIPONINUN 


Sprint_fao ("!8* physical device name: '!AF', .volb Cvolb$l_devnamien], volb Cvolb$t_devnam]); 
I ed Cvolb$b_vol_format] EQL volb$k_vfmt_rt11 


PS SONS AF UN SOM Onn ooo 


POPIPORIPIPONOPOPPoNofnonony 


SOONA NE WN (OO ONAUES WN $$ O OONOUS WN HOOD NOUS WN oO 


AMAA MNVIUIVIVAVT 


POPSPIPONIPINPIMGPININMYPOPPNIPY 
SNNNNOAAAAAAAO 

PWN HO OBNOUE WR 
AANA AAA NAA BAIN & 


BEGIN 
ser vat tee (*!8* volume size:!12* !UL block!2S', .volb Cvolb$l_volmaxblock]); 


i rd -volb Cvolb$v_write) 
$print_fao (°!32* volume is write-locked'); 
e zvols Cvolb$v_read_check] 
Sprint_fao ('!32* /DATA_CHECK=READ is enabled"); 
if gvolb Cvolb$v_write_check] 
Sprint_fao ("!32* /DATA_CHECK=WRITE is enabled’); 
volb = .volb Cvolb$a_flink]; ! Move to the next volume 


Se Se Se Ge Se Ge Be Se Se Se Be Be Se Se oe Fe Se Se Se ee FH Se FH Se SH Se Ge Se Se Se Se Se Se Ge Se Se Se Fe Se Se ae SH Se FHS Se SH Se Se Se Se See ee Se Gee 
ee ed ee ec ee ee a cd ae a a a a ee ee ee ee de ed ae ee a a a a a dd ed 
CONOUE WN —OOOn 


SEBS NA SSS SSS fo ale st * ale heal vabush al al al aleal al tal oe oP oP oF oF oF oP oP oe le 
— 
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fOse000 exch$show_show 127808-1 382 9) 339368 EXCHNG. SRC} EXCSHOW.832;1 = (4) 


END; 

Sprint_desc (null_string); 
RETURN true; 

END; 


| 
TITLE EXCUS SHON SHOW verb dispatch routine 
DENT \Vv04-000\ 
«PSECT EXCHSSHOW_PLIT,NOWRT,2 


0000 P.AAB: .BLKB 0 : 
0195 0008 0000 P.AAA: .LONG Se: 720 5 
00000000" 00004 ADDRESS P.AAB ; 
20 64 65 74 6E 75 6F 3 Bne8 P.AAD: .ASCII  \Mounted volumes: \ : 
01 0F OO 0018 P.AAC: .LONG 17694736 : 
00000000" 0001C ADDRESS P.AAD ; 
46 41 21 $9 0020 P.AAF: .ASCII 2 
010E0004 00024 P.AAE: .LONG 17694724 : 
00 30089" Bae 8 ADDRESS P.AAF 3 
75 6C 6F 76 20 gh 8 21 OQ002C P.AAH: .ASCII \!8* yolume format:!10* !AF\<0><0> 3 
20 2A 30 31 21 3A 74 61 00038 3 
ah 3 49 F 00048 P.AAG: .LONG 17694746 3 
00000000' rd ADDRESS P.AAH 3 
68 73 69 64 00050 P.AAJ: .ASCII \disk\ 3 
OIE ODS. 00054 P.AAI: .LONG 17694724 3 
00000000' 00058 ADDRESS P.AAJ ; 
00 65 70 61 74 67 61 6D OQOOSC P.AAL: .ASCII \aagtage\<0> r 
. 010E0007 00064 P.AAK: .LONG 176947 ; 
et tes 0068 ADDRESS P.AAL 3 
00 6E€ 77 6F 6E 68 ge 7 O06C P.AAN: .ASCII \unknown\<0> : 
010E0007 Boog P.AAM: .LONG 7694 : 
00000000' 00078 ADDRESS P.AAN F 
75 74 72 69 76 $8 20 20 st P.AAP: .ASCII \ (virtual volume) \<0><0> 5 
00 00 29 65 6D 00088 3 
010 ools bg P.AAO: .LONG 17694738 : 
00000000° 00094 ADDRESS P.AAP 3 
75 6C 6F 76 99 3h } 0098 P.AAR: ASCII \!8* volume class:!11* !AS!AS\ 3 
21 20 2A 31 31 21 3A QOA7 3 
010E001C O00B4 P.AAQ: .LONG 17694748 F 
00 wony” 88 8 -ADDRESS P,AAR_ ; : 
74 72 69 76 20 2A BC P.AAT: ASCII \!8 virtual file name:!6* !AF\<0><0> 3 
1 3A 65 6D 61 6€ 5 000CB 3 
3 OODA 3 
0008 <0 ; | 
4 6018 Bade P.AAS: See 17694749 3 
0000000" OO0E ADDRES P.AAT : 
73 79 #68 70 20 2A 1 E4 P.AAV: .ASCII \tae physical device name: 'AF\<0> : 
6D 61 6€ 20 65 63 ; i tt : 
4 port a P.AAU: .LONG West 3 
0 0* 00108 oneness t 3 
75 gc gf 76 99 $4 1 QO10C P.AAX: .ASCII \taen celia size:!12* 'UL block!%S\<0><0>_~ ; 
55 21 20 2A 1 A 00118 3 
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20 73 69 20 
00 


o 
> 
ao 
vn 
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6C 2D 
43 45 48 43 SF 41 re 41 44 2F 
6C 62 61 6€ 65 20 73 69 20 44 
43 45 48 43 SF 41 54 41 44 g 
62 61 6€ 65 20 73 69 20 45 
000000006 
50 
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6-Sep-1984 01:24: 
gree 1 8be 95:56 
SASCII 
-AAW: LONG 
ADDRESS 


«AAY: .LONG 


4 
70 


eee Oi fegeze V4.0=742 
EXCHNG. SRC JEXCSHOW.B32;1 
0 

1 ons 795 


P,AAX 
\!32* volume is write-locked\<0> 
17694747 


“ADDRESS P.AAZ 
.ABB: <ASCII \!32® /DATA_CHECK=READ is enabled\ 


Pp 
P.AAZ: .ASCII 
P 
P 


P.ABA: .LONG 


17694752 


»ADDRESS P.AB 


P.ABD: .ASCII 


-ASCII 
ol 


P.ABC: ONG 


\!32" /DATA_CHECK=WRITE is enabled\<0><0> 


rs 
17694753 


«ADDRESS P.ABD 


NULL_STRING= 
EXTRN 


-EXTRN 
-EXTRN 


~ _ 
ao bed 

o> uv 
J c 

oo “ 

= = 

i 


ws 
bed 
BES 
“nooo 
< 
a 


P.AAA 
EXCHSA_GBL, EXCH$_NOVOLUMES 
LIBS$PUT_OUTPUT, ERCHSUTIL_BLOCK_CHECK 
EXCHSUTIL_FAO_BUFFER 
EXCHSSHOW_CODE ,NOWRT,2 
EXCHSSHOU SHOW, Save R2,R3,R4,R5,R6,R7 
EXCHSUTIL FAO BUFFER, R6 
NULL_ STRING 
BSPUT OUTPUT, R4 

H$A_GBL, RO 
(ROY, VOLB 

RO). RO 
LB, RO 
CH$_NOVOLUMES, TEMP 


1 

V 

1 

‘ 

#1, LIBSSIGNAL 
TEMP, RO 

R 
#1, LIBSPUT_OUTPUT 
P.AAC 

#i, LIBSPUT_OUTPUT 
#192, EXCHSA_GBL, RO 
y LB, RO 

} ; 78579, R2 

a $7 Ri * 

VOLB, RO 

‘ CH$UTIL_BLOCK_CHECK 
#1, LIBSPUT_OUTPUT 

105 <VOLB) 
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exch$show_show 1 300-138 93 :39:4 LEXCHNG. SROSEXCSHOW.832¢1 — (4) 


$5 A x 7A PUSHL  101(VOLB) ; 
4 ad 9F 00070 PUSHAB P,AAE : 
6h FB CALLS #3, EXCHSUTIL_FAO_BUFFER : 
OD PUSHL R : 
64 1 FB CALLS #1, LIB$PUT_OUTPUT : 
50 AS OF PUSHAB 93(VOLB) : 0233 
9 A po PUSHL  89(VOLB) : 
48 A Ff . PUSHAB P,AAG g 
66 9 FB CALLS #3, EXCHSUTIL_FAO_BUFFER : 
64 01 ee 36 ths Rt LIBSPUT_OUTPUT ; 
01 30 AS D} 098 CMPL 48(VOLB), #7 + 0235 
06 2 0009 BNEO 4$ : 
51 54 C«OA 5 OF MOVAB P.AAI, PTR1 t 0237 
19 1 a3 BRB 6$ ; 
02 30 AS D1 OOOAS 4$ CMPL  48(VOLB), #2 + 0238 
06 12 OOA9 BNEQ 5$ : 
51 64 «OA 1 OAB MOVAB P.AAK, PTR1 + 0240 
04 11 OOOAF BRB $ : 
51 74 AS 9E 00081 5S: MOVAB P.AAM, PTR1 + 024 
48 AB 04 al 0085 6$: BBC #4, 72(VOLB), 7$ > 024 
50 0090 ¢5 f OOBA MOVAB P.AAO, PTR2 + 0245 
63 11 O00BF BRB : 
50 63 9€ 000C1 7$: MOVAB NULL STRING, PTR2 + 0247 
0 DD 000C4 8$: PUSHL PTR + 0248 
51 DD 00¢6 PUSHL  PTR1 : 
00B4 C5 9F 000C PUSHAB P.AAQ ; 
és 03 FB O00CC CALLS #3, EXCHSUTIL_FAO_BUFFER : 
50 DD OOOCF PUSHL RO : 
64 01 FB 00001 CALLS #1, LIBSPUT_OUTPUT : 
48 A3 04 £1 000D4 C #4, 72(VOLB, ; 0250 
50 18 A3 DO 00009 MOVL  $ 24(VOLB), RO : 0252 
04 AO DD 000DD PUSHL  4(RO) : 
7E 3 a0 9A 000E0 MOVZBL 3(RO), -(SP) ; 
0oDC C5 OF O00E4 PUSHAB P.AAS ; 
11 OO00E8 BRB 10 : 
0069 C3 OF QOEA 9$: PUSHAB é (VOLB) > 0254 
8 AS DD OEE PUSHL  56(VOLB) ; 
0104 cS 9F O00F PUSHAB P.AAU : 
bt 93 FB OOOFS 108: CALLS #3, EXCHSUTIL_FAO_BUFFER ; 
DD 000F8 PUSHL RO : 
64 01 FB OOFA CALLS #1, LIBS$PUT_OUTPUT F 
03 58 =6A3 91 OO00FD CMPB ss BB VOLB), #3 : 0256 
OF 12 00101 BNEQ 118 : 
44 a3 pp 103 PUSHL  68(VOLB) : 0259 
0130 cS 9F 001 PUSHAB P.AAW : 
66 ; FB O010A CALLS #2, EXCHSUTIL_FAO_BUFFER : 
DD 001 PUSHL R : 
64 1 FB 10F CALLS #1, : BSPUT_OUTPUT : 
468 «A 2 . 118 11$: BBS #5. 72(VOLBY, 12$ : 0262 
0154 F 0011 PUSHAB P.AAY : 0264 
66 1 FB 0011B CALLS #1, EXCHSUTIL_FAO_BUFFER ; 
0 pd 0011 PUSHL RO F 
64 1 Fe 1 CALLS #1, LJBSPUT ourput ; 
48 «A 1 f 123 12%: BBC # (VOLBY, 13 : 0 66 
017¢ cs F 001 PUSHAB P.ABA : 0268 
66 1 FB 0012C CALLS #1, EXCHSUTIL_FAO_BUFFER : 


<= 
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; Routine Size: 340 bytes, 


Routine Base: 
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EXCHNG. SROJEXC SHOW. B32;1 
PUSHL R 
CALLS - pettets ourP T 
BBC HS TVOLBT. 
PUSHAB 
CALLS Fhe ExcHSUTIL _FAO_BUFFER 
PUSHL 
CALLS L1BsPuT OUTPUT 
MOVL (yo.b) VOL 
BRW 2s 
PUSHL R 
CALLS #1, LIBSPUT_OUTPUT 
MOVL #1. RO 
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v04-000 exch$show_show 1382 9) 339368 osRe . 
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189 pce END 
190 0282 ) ELUDOM 
-EXTRN LIBSSIGNAL 

; PSECT SUMMARY 
; Name Bytes Attributes 
: EXCHSSHOW PLIT 432 NOVEC, NOWRT, RD , EXE,NOSHR, LCL, REL, baked | Er bob 
; EXCHSSHOW_CODE 340 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
act ae a te eee Syabols -oo---e- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 5 0 1000 00:01.8 
: ~$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 31 2 79 00:01.4 
; COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:EXCSHOW/OBJ=OBJ$:EXCSHOW MSRC$:EXCSHOW/UPDATE=(ENHS$:EXCSHOW) 
3; Size: 340 code + 432 data bytes 
3; Run Time: 00:10.1 
; Elapsed Time: ef 39.3 
3 Lines/CPU Min: 168 
; Some A igi 12919 
3 cy Ue 131 pages 
3; Compi tien Complete 
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